subroutine log_msg2(lunit,str1,str2)
  implicit none
  integer,intent(in) :: lunit
  character :: str1*(*),str2*(*)

900 format(a,1x,a)

  write(lunit,900) trim(adjustl(str1)),trim(adjustl(str2))

  return

end subroutine log_msg2
